home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / DOLLAR MASK.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  33 lines
  1. 10  REM  ************************
  2. 12  REM  *                      *
  3. 14  REM  *   BUSINESS DOLLARS   *
  4. 16  REM  *       AND SENSE      *
  5. 18  REM  *     BARTON BAUERS    *
  6. 20  REM  *                      *
  7. 22  REM  *      DOLLAR MASK     *
  8. 24  REM  *                      *
  9. 26  REM  *  COPYRIGHT (C) 1981  *
  10. 28  REM  *    MICRO INK, INC.   *
  11. 30  REM  * CHELMSFORD, MA 01824 *
  12. 32  REM  *  ALL RIGHTS RESERVED *
  13. 34  REM  *                      *
  14. 36  REM  ************************
  15. 38  REM 
  16. 50  DEF  FN VL(X) =  INT((X +.0001) *100)
  17. 14999 :
  18. 15000  REM  **SUBROUTINE**
  19. 15001  REM  ARGUMENT ID ZZ$
  20. 15002  REM  RESPONSE IS XW$
  21. 15005 :
  22. 15010 M% =  LEN(ZZ$)
  23. 15020 XV$ = "$":XX$ = "":XY$ = "."
  24. 15030 XZ$ =  RIGHT$(ZZ$,2)
  25. 15040  ON M% GOTO 15060,15070,15100,15100,15100,15100,15100,15100,15100
  26. 15050  PRINT "ERROR ON INPUT VALUE ": GOTO 15120
  27. 15060 XZ$ = "0" +XZ$: GOTO 15110
  28. 15070  IF  LEFT$(ZZ$,1) = "-" GOTO 15090
  29. 15080  GOTO 15110
  30. 15090 XZ$ = "0" + RIGHT$(XZ$,1):XX$ = "-": GOTO 15110
  31. 15100 XX$ =  LEFT$(ZZ$,(M% -2))
  32. 15110 XW$ = XV$ +XX$ +XY$ +XZ$
  33. 15120  RETURN